home *** CD-ROM | disk | FTP | other *** search
/ By Popular Request 2.0 / By Popular Request 2.0 (Arsenal Computer).ISO / amiga_1 / amtlk155.lha / AmiTALK / Install < prev    next >
Text File  |  1995-06-06  |  3KB  |  110 lines
  1. ;
  2. ; AmiTALK Installation Script $VER:AmiTALK V1.55 (06.06.95)
  3. ;
  4.  
  5. (set oldUserLevel (user 3))
  6. (message
  7.  "\nWelcome to the AmiTALK 1.55 installer script.\n\n"
  8.  "Follow the installer script's instructions to install AmiTALK on your "
  9.  "system."
  10. )
  11. (user oldUserLevel)
  12.  
  13. (set network
  14.      (askchoice
  15.       (prompt "Which version of AmiTALK would you like to have installed?")
  16.       (choices "AmiTCP" "AS225")
  17.       (help "Select AmiTCP for the AmiTCP version and AS225 for the AS225 version.")))
  18.  
  19. (if network
  20.     (
  21.      (rename "as225-talk" "talk")
  22.      (copyfiles
  23.       (prompt ("Copying talk to inet:c"))
  24.       (help @copyfiles-help)
  25.       (source "talk")
  26.       (dest "inet:c")))
  27.   (
  28.    (rename "amitcp-talk" "talk")
  29.    (copyfiles
  30.     (prompt ("Copying talk to amitcp:bin"))
  31.     (help @copyfiles-help)
  32.     (source "talk")
  33.     (dest "amitcp:bin"))))
  34.  
  35. (if network
  36.     (
  37.      (rename "as225-talkd" "talkd")
  38.      (copyfiles
  39.       (prompt ("Copying talkd to inet:serv"))
  40.       (help @copyfiles-help)
  41.       (source "talkd")
  42.       (dest "inet:serv")))
  43.   (
  44.    (rename "amitcp-talkd" "talkd")
  45.    (copyfiles
  46.     (prompt ("Copying talkd to amitcp:serv"))
  47.     (help @copyfiles-help)
  48.     (source "talkd")
  49.     (dest "amitcp:serv"))))
  50.  
  51. ((select
  52.   (askchoice
  53.     (prompt "Which method of incoming notification would you like?")
  54.     (choices "RexxReqTools" "KS 3.0+ notification" "CNet")
  55.     (help "For the RexxReqTools version, you must install RexxReqTools."
  56.           "The KS 3.0+ version requires Kickstart 3.0 or greater."
  57.           "CNet is to notify users currently online CNet that they have"
  58.           "an incoming talk request.  Use CNet only if you are a CNET"
  59.           "sysop."))
  60.    (set @notify-choice "reqtools.talkrequest.rexx")
  61.    (set @notify-choice "30.talkrequest.rexx")
  62.    (set @notify-choice "cnet.talkrequest.rexx")))
  63.  
  64. (if network
  65.     (set @dest-dir "inet:c/")
  66.   (set @dest-dir "amitcp:bin/"))
  67.  
  68. (copyfiles
  69.  (prompt ("Copying %s to %s" @notify-choice @dest-dir))
  70.  (help @copyfiles-help)
  71.  (source @notify-choice)
  72.  (dest @dest-dir))
  73.   
  74. (rename (tackon @dest-dir @notify-choice)
  75.     (tackon @dest-dir "talkrequest.rexx"))
  76.  
  77. (delete (tackon @dest-dir @notify-choice))
  78.  
  79. (if network
  80.     (run ("protect inet:c/talkrequest.rexx +s"))
  81.   (run ("protect amitcp:bin/talkrequest.rexx +s")))
  82.  
  83.  
  84. (if
  85.     (askbool
  86.      (prompt "Would you like the proper line to be added to inetd.conf?")
  87.      (help "For AmiTALK to work properly, a line must be added to inetd.conf."
  88.        "  If you have ever installed AmiTALK before, there is no need to repeat "
  89.        "this step.  If this is your first time installing AmiTALK, please let "
  90.        "the installer add this line."
  91.        "Also let the installer add this line if you do not have a line starting"
  92.        "with 'ntalk' in your inetd.conf")
  93.      (default 1))
  94.  
  95.     (if network
  96.     (
  97.      (rename "inet:db/inetd.conf" "inet:db/inetd.conf.backup")
  98.      (run ("join inet:db/inetd.conf.backup as225-inetd.addme to inet:db/inetd.conf")))
  99.       (
  100.        (rename "amitcp:db/inetd.conf" "amitcp:db/inetd.conf.backup")
  101.        (run ("join amitcp:db/inetd.conf.backup amitcp-inetd.addme to amitcp:db/inetd.conf")))))
  102.  
  103. (set oldUserLevel (user 3))
  104. (message
  105.  ("\nAmiTALK is now installed.  Please reboot before attempting to use it.\n\nIf you have any questions, feel free to contact me via e-mail at:\n\ngunnbr@cs.rose-hulman.edu")
  106.  )
  107. (user oldUserLevel)
  108.  
  109. (exit (quiet))
  110.